From 704a9b457a393cf3f4fe229c18d13ed4917646c0 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Fri, 4 Jun 1993 18:42:12 +0000
Subject: [PATCH] [!MULTI_FRAME] (Fframep): New dummy definition.
 (syms_of_frame): Defsubr that.

---
 src/frame.c | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/frame.c b/src/frame.c
index 93d62cfb83b..00cb7cdf06f 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -1556,6 +1556,16 @@ DEFUN ("selected-frame", Fselected_frame, Sselected_frame, 0, 0, 0,
   XFASTINT (tem) = 0;
   return tem;
 }
+DEFUN ("framep", Fframep, Sframep, 1, 1, 0,
+  "Return non-nil if OBJECT is a frame.\n\
+Value is t for a termcap frame (a character-only terminal),\n\
+`x' for an Emacs frame that is really an X window.\n\
+Also see `live-frame-p'.")
+  (object)
+     Lisp_Object object;
+{
+  return Qnil;
+}
 
 DEFUN ("set-frame-height", Fset_frame_height, Sset_frame_height, 2, 3, 0,
   "Specify that the frame FRAME has LINES lines.\n\
@@ -1692,6 +1702,7 @@ but that the idea of the actual width of the screen should not be changed.")
 syms_of_frame ()
 {
   defsubr (&Sselected_frame);
+  defsubr (&Sframep);
   defsubr (&Sframe_char_height);
   defsubr (&Sframe_char_width);
   defsubr (&Sframe_pixel_height);
-- 
2.30.2